data1 segment
    VAR1 db 01h
data1 ends

stack1 segment stack
    dw 20h dup(0)
stack1 ends

code segment
assume cs:code, ds:data1, ss:stack1
begin:
    mov ax, data1
    mov ds, ax
    shl VAR1, 1
    mov ah, 4ch
    int 21h
code ends
    end begin
